﻿
Imports System.IO
Imports std

Public Class doctypebase
    Inherits onelineXmlControl

    Private Shadows attributes As String = Nothing

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff, "!DOCTYPE")
    End Sub

    Public Shadows Sub attribute(ByVal attr As String)
        attributes += character.blank + attr
    End Sub

    Protected Overrides Function renderAttributes(ByVal compress As Boolean) As Boolean
        write(attributes)
        Return True
    End Function

End Class
